home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 December / macformat-031.iso / mac / ClarisWorks 4.0 Trial / ClarisWorks Trial / ClarisWorks Trial.rsrc / PREC_103 < prev    next >
Encoding:
Text File  |  1995-10-04  |  889 b   |  45 lines
  1. %PostScript Hack by Mike Brors 12/7/90
  2. /DisableNextSetRGBColor
  3.     {
  4.     userdict begin
  5.     /setrgbcolor 
  6.         {
  7.         pop
  8.         pop
  9.         pop
  10.         userdict begin
  11.         /setrgbcolor systemdict /setrgbcolor get def
  12.         end
  13.         } def
  14.     end
  15. } bind def
  16. /bcarray where {
  17.     pop
  18.     bcarray 2 {
  19.         /da 4 ps div def
  20.         df setfont gsave cs wi
  21.         1 index 0 ne{exch da add exch}if grestore setcharwidth
  22.         cs 0 0 smc da 0 smc da da smc 0 da smc c
  23.         gray
  24.         { gl}
  25.         {1 setgray}ifelse
  26.         da 2. div dup moveto show
  27.     }bind put
  28. } if
  29. %
  30. % Used to snap to device pixels, 1/4th of the pixel in.
  31. /stp {  % x y  pl  x y                % Snap To Pixel, pixel  (auto stroke adjust)
  32.     transform
  33.     0.25 sub round 0.25 add exch
  34.     0.25 sub round 0.25 add exch
  35.     itransform
  36. } bind def
  37.  
  38. /snapmoveto { % x y  m  -             % moveto, auto stroke adjust
  39.     stp  moveto
  40. } bind def
  41.  
  42. /snaplineto { % x y  l  -             % lineto, auto stroke adjust
  43.     stp lineto
  44. } bind def
  45.